#!/usr/bin/perl

sub add
{
  $_[0] + $_[1];
}

my $a;
$a = add(39, 3);
print $a . "\n";
